home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / H190.ZIP / VERTEX1.EXE / ENTRY.PRG < prev    next >
Text File  |  1992-09-12  |  1KB  |  31 lines
  1. FUNCTION entry
  2. LOCAL   lFile   := "ESAMPLE.DBF",;      && sample file for using MFDATAENTRY()
  3.         lScrSave    := "",;             && saved screen
  4.         lCurrCol    := COL(),;          && current cursor position (COLUMN)
  5.         lCurrRow    := ROW()            && current cursor position (ROW)
  6.  
  7.  
  8. lScrSave := SAVESCREEN( 0, 0, MAXROW(), MAXCOL() )
  9.  
  10. utinit()                                && must be used as first function
  11.                                         && to initialize drivers and globals
  12.                                         && needed....
  13.  
  14. IF !FILE( lFile )                       && check if sample file exists
  15.  
  16.    lFile := MFSELFILE( "DBF" )          && allow user to select one...
  17. ENDIF
  18.  
  19.                                         && use the database
  20. IF( !EMPTY(lFile), DBUSEAREA( .T., "DBFNTX", lFile, "SAMPLE", .F. ), "" )
  21.  
  22. mfdataentry()                           && work all fields
  23.  
  24.                                         && slide screen off........
  25. VISLIDEOFF( 0, 0, MAXROW(), MAXCOL(), lScrSave, 1 )
  26.  
  27. DEVPOS( lCurrRow, lCurrCol )            && reset cursor to old position
  28.  
  29. RETURN NIL
  30.  
  31.